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MODULE CVTUAF ( 


BEGIN 
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leneteneennennunentnentnnnnentenerererettnertetrententnnetenttnernenenetentns 
'® 

'® COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 

ie DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
'® ALL RIGHTS RESERVED. 
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IS USED AND COPIED 
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FACILITY: Convert User Authorization File 
i ABSTRACT: Converts a Release 3 compatible SYSUAF.DAT to Release 4 format. 
! The new SYSUAF.DAT offsets are assumed. The old offsets have 
} been renamed to OAF$etc... 
! ENVIRONMENT: Release 3 to Release 4 conversion procedures 
AUTHOR: Chris Hume, CREATION DATE: 22-May-1979 
; MODIFIED BY: 
i v03-005 BLS0333 Benn Schreiber 19=JUL-1984 
; If already in v4 format, just copy and upgrade selected 
} quotas for all accounts (unless greater). 
4 i v03-004 BLS0284 Benn Schreiber 8-MAR-1984 
05 : Add mulitple areas for getter performance, set jtquota 
b2 } to 1024 if it comes up 0. 
05 i v03-003 ACG0388 Andrew C. Goldstein, | 15-Jan-1984 18:29 
be } Make password date zero if password is null 
05 i v03-002 ACG0385 Andrew C. Goldstein, Ti-Jan-1984 21:28 
05 ! Fix conversion of CLITABLES string; move OAFDEF to LIB$; 
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CVTUAF Convert Authorization File 16-Sep-1984 15:1 VAX-11 Bliss-32 V4.0-74 Page 
v04=000 1o-8 08-1 3b 96:33:18 ST SKSVMGMASTERSCUAF SRCICVTUAF B32; 1 9 02) 
: 65 064 1 LIBRARY 'SYSS$LIBRARY:LIB'; 
; 6 ' 2 REQUIRE "LIBS:OAFDEF'; 
; 68 1 : 1 FORWARD ROUTINE 
: 69 1 1 ADJUST_RECORD_FIELDS : NOVALUE, 
; 4! 138 : COPY_ABJUST_SELECTED : NOVALUE; ‘copy uaf, only adjust selected fields 
est 190 1 MACRO 
; 7 ™ 191 1 RETURN_IF_ERRORC] = 
; 7 M01 ; 1 BEGIN 
oe, M0193 1 LOCAL RMSERR; 
a ¥ 019% 1 (IF NOT (RMSERR = %REMAINING) THEN RETURN .RMSERR) 
Wie M0195 1 END 
: «78 196 1 i; 
3 79 197 1 
; 680 198 1 LITERAL 
; BI 0199 1 TRUE = 1; 
; 8¢ 0200 1 
7 0201 1 MACRO 
> 84 m0 0¢ 1 COPY_PADDED (NAME) = 
: «85 M0203 1 COPY_PADDED1 (XEXPLODE (NAME)) 
3 86 0204 1 i, 
: 87 0205 1 
: «88 m 0206 1 COPY_PADDED1 (C1, C2, C3, C4, C5) = 
; 689 M 0207 1 COPY_PADDED2 (XSTRING (*OAFSS', XREMAINING), 
: 90 M0208 1 ZSTRING ('OAFS' C5, ZREMAINING), 
: 91 m 0209 1 XSTRING ("UAF$S', ZREMAINING), 
; 3 M0210 1 MSTRING ("UAF$', C5, XREMAINING)) 
ie 8512 - 
: 95 m0 i§ 1 COPY_PADDED2 (OLENGTH, ONAME, NLENGTH, NNAME) = 
; 96 a Oge CHSCOPY (2NA € (OLENGTH), OAFBUFLXZNAME (ONAME)], 
: 98 4 O16 1 MNAME (NLENGTH), UAFBUFCXNAME (NNAME)]) 
: 99 0217 1 # 
: 100 0218 1 
> 101 N 0219 1 COPY_COUNTED (NAME) = 
; 198 m 0220 1 COPY_COUNTED1 (XEXPLODE (NAME)) 
; 10 8 ie . ° 
3; 104 § 1 
: 105 4 1 COPY_COUNTED1 (C1 C2, C3, C4, C5) = 
> 106 M0226 1 COPY_COUNTED2 (ZSTRING ("OAFS$S', %REMAINING) 
; 107 M0225 1 ZSTRING (‘OAFS', C5, XREMAINING), 
: 108 m Occ | ZSTRING (‘UAFSS', ZREMAINING) . 
= % 4 1 ZSTRING ("UAF$', C5, XREMAINING)) 
atti $j - 
+ 11 m 0230 1 COPY_COUNTED2 (OLENGTH, ONAME NGTH, NNAME) = 
: 118 " 1 ~~" CHSCOPY (VECTOR toaréurt NAME (ONAME)], O;, BYTE]+1, OAFBUFCXZNAME (ONAME)], 
: 115 " ; ‘ ZNAME (NLENGTH), UAFBUFCXZNAME (NNAME) ]) 
: 119 m 0235 1 PADDED_TO. COUNTED (NAME) = 
: 118 M PADDED_T0_COUNTED! (EXPLODE (NAME)) 
: 169 3 1 
+ 121 4 1 PADDED_TO_COUNTED1 (C1, C2, C3, C4, C5) = 
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LOCAL COUNT, P : REF VECTOR f BYTE; 
P= OAFBUF {NAME (ONAME)] + X%NAME (OLENGTH); 
UNTIL .PC-1] GTRU ' ' 
OR ~P LEQA OAFBUFCXZNAME (ONAME)] 
= Pe- 1; 
COUNT = .P = OAFBUFCZNAME (ONAME)]; 
VECTOR CUAFBUFCZNAME (NNAME)J, 0; . BYTE] = .COUNT; 
CHSCOPY (, COUNT, OAFBUFCXNAME (ONAME) J, 


XNAME (NLENGTH)-1, UAFBUFCXZNAME (NNAME)J+1) 


EXTERNAL ROUTINE 
LIBSPUT_OUTPUT : ADDRESSING_MODE (GENERAL); 
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OAFBUF: BLOCK 80,8 ReNGTH. BYTEJ, 
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: BLOCK 8 BY 
OUTDSC: VECTOR C23 INITIAL (80, OUTBUF), 
wagig tE * SXABKEY ( ! XAB for owner identifier key 
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POSO = SBYTEOFFSET (UAFSQ_PARENT_ID), 
$120 = UAESS_PARENT_ID, 
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$ P 2 1 BKZ = 3, 

3 p 1 DEQ = 

; P § NXT = UAFALL2 

: 26 1 ‘ 

3 rh P : 1 UAFALLO: S$XABALL ( ' XAB for UAF allocation 
3 ¢§ P 1 AID = 0 

> 26 P 0361 1 AOP = CBT, 

> 246 Pp § 1 ALQ = 16, 

: $e POs | Bras i 

; éf P ge NXT = UAFALL1 

: rt P 1 UAFPRO: S$XABPRO ( ' XAB for file protection 
; 250 P os 4 PRO = (RWE, RWE, RWE,), ! deny worid access 

: 53 P +4 : we = UAFALLO 

; 71 1 ‘ 

ie fea ore ee, pots, 

. s ° 4 

oe. P 0374 1 FNM = ‘NEWUAF’, ! tenporery file name 

: BP OS She BAT 

7 Ss ° 

; +4 . 8 7 : ORG = 10x, ! indexed operations 

. = 

; 261 P 0 15 1 MRS = UAFSC_LENGTH, : maximum record size 

: o¢ P O31 ' vas = UAFPRO ! file protection XAB 

: 264 82 1 : 

; 265 Pp a38s 1 UAFRAB: $RAB ( ! RAB for temporary file 
> 266 P0384 1 RBF = UAFBUF, 

3 of P 0385 ! (Ae = UAFFAB 

: 269 1 : 

3 $ P o387 1 OAFKEY2: S$XABKEY ( ! XAB to read old UAF key 
3 7 P ted : KREF = 2 

: 27 91 1 ‘ 

3 74 P 8 4 1 OAFKEY1: SXABKEY ( ! XAB to read old UAF key 
: 275 P0393 1 KREF = 

: i Pp 94 Nxt = OAFKEY2 

: 27 1 , 

3 8 P 3 1 OAFKEYO: S$XABKEY ( ! XAB to read old UAF key 
; 280 P 0398 1 KREF = 

; 8 Pp 99 NXT = OAFKEY1 

: 11 . 

3 B P 04 § 1 OAFFAB: SFAB ( ! FAB for old UAF file 

: 285 & 1 FAC = ! read only 

: 8 P 1 FNM = ‘OLOUAF’, 

3 P SF DNM = °. 

3 5 P XAB = OAFKEYO 

: 1 2 

: 291 Pp 1 OAFRAB: $RAB ( ! RAB for old UAF 

3 2 P 0410 1 RAC = SEQ, 
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ROUTINE MAIN = 
BEGIN 


1 
LOCAL 
RMSERR, 
LENGTH 
NEW FLAG, 
DATE : VECTOR (2), 
USER_DATA : REF VECTOR C,BYTE), 
USER-LENGTH; 
SGETTIM (TIMADR = DATE); 
4 
4 


| Open the old UAF for input 


RETURN_IF_ERROR (SOPEN (FAB = OAFFAB)); 

RETURN-IF-ERROR (SCONNECT (RAB = OAFRAB)); 

i Validate the keys of the UAF, checking if it is a new format, 
and then f ~ old format validity. 

NEW_FLAG = F 

IF ~.OAFKEY raat EQL SBYTEOFFSET (UAFS$T_USERNAME) 


AND eds XAB$B_S1Z QL UAF$S_USERNA 
a ert te ott POSO] EQL S$BYTEOFFSET (UAFSL_UIC) 


YIUX Ss 
AND .OAFKEY2(XABS$W_POSO Eat sorreerr ast (UAFSL_UIC) 


mmn 
o 


BEGIN 

NEW FLAG = 1; 
! — LIBSPUT_OUTPUT (SDESCRIPTOR ('UAF is already converted’)); 
: RETURN STSSM_INHIB_MSG; 


END 
ELSE 
BEGIN 
IF .OAFKEYOCXABS J) NEQ SBYTEOFFSET (OAFST_USERNAME ) 
OR .OAFK 5120) NEQ OAFS$S_USERNAME 
eee NEQ $BYTEOFFSET (OAFSL_UIC) 
POS 
$1Z 


NEQ 
NEQ SBYTEOFFSET (OAFSW_MEM) 
NEQ 2 
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ESCRIPTOR (‘UAF has invalid format')); 


RSG: 
END; 
Create the new UAF. 
if .NEW_FLAG 
UAFALLOCXABSL_ALQ) = .OAFFABCFABSL_ALQ) 


BAF AL LOEKABSY ALQ) = ,OAFFABCFABSL_ALQ]) / 2 + .OAFFABCFABSL_ALQ); 
SCREATE (FAB = UAFFABY); 


ANNO 


~™ 


RETURN_IF_ERROR 
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uaf already in new format, simply copy and adjust the selected 
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HEN 


BEGIN 
CHSFIL 


UAF BUF 
UAF BUF 


UAF BUF 


i Ds De 


UAF 


UAF BUF 


NEW_FLAG 

RETURN (COPY_ADJUST_SELECTED(); 
Only do the upgrade if an old format uaf 
+ ae (RMSERR = $GET (RAB = OAFRAB)) 


UAFSC LENGTH, UAFBUF); 
UAF $B~ “HERSEON] = 
UAFSB_ENCRYPT) = 
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i es De] 
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UAF SW_SHRF I LAJ = 
UAF $W_TQCNT 
UAF $L ~MSEXTENT} = 
FSL~ Boeue TA) = 
UAFSL“BYTLM] = 
IF _.UAFBUF CUAF SL “BYTLM] EQL 0 
er BUF CUAFSL_BYTLM) = 
=Crurin J_= 


FS Pay LM] = 
UAF $L~ “PGFLQUOTA) = 


Sep-1 


cision 


RETURN_IF_ERROR (SCONNECT (RAB = UAFRAB)); 


TRUE); 


UAFSC_USER_ID; 
UAFSC-~VERSTONI; 


OAFSB_ENCRYPTI; 
A a3 


- OAF BUF 
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-0 
- OAF BUF 


 OAF BUF 
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- OAF BUF 
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OAF SL SDAYHOURS 
OAF $B~ ~PRIMEDAYS): 
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0 it 
OAFSL-P PGFLGUOT 
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$ep-1984 02:15:1 VAX=11 BLli 
1erSep-19B6 18:21:19 DISKSVMEMA 
UAF BUF CUAF $L_PWD  OAF BUF LOAF $L_PWD); 
UAF BUF LUAF $L_UIC “BAFBUFEOAFSC wUIC); 


UAFBUF CUAFSV_DISACNT™ = 0; 


IF i UAFBUF LUAF86-DIALUR ACE BOREL AGS SBITPOSITION (OAFSV_DISDIALUP)] 
BITVECTOR R FOAFBUREOASS. 3p DATE AGS] " $BITPOSITION (OAF$V_DISDIALUP) J 
slate eer ec PDAYF Ags] * $B1TPOSITION (OAF $V_DISNETWORK) J 


F 

HEN 

HEN yeh S_P 

ak -BITVECTOR COAFBUF OAFSE SDATE GAGS), SBITPOSITION (OAFSV_DISNETWCRK)J 
Ss -1>5 

F 
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S. 
=S 
al 
4 
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EN UAFBUFCUAFSB_REMOTE_ACCESS_S 
pease 


IF (PRIVSO AND .(OAFBUFCOAFSQ_PRIV ate 
aa AND .(OAFBUFLOAFSQ_PRIV 


BEGIN 
UAF BUF CUAF$8_PWD_LENGTH) = 
CHSMOVE (8, BAY30, UAFBUFCUAFS$Q pub _LIFETIME]); 


BEGIN 
hh a Se PWD LEMS! H] = 6; 
CHSMO . Bayi8 UAF BUF CUAF $Q_ PUD_LIFETIME)); 


a0 
Ate ATE]); 
# arate YUAFBUPCOAFSO.PRIVI 
UAFSS“PRIV. OAFBUE OA Sa” UAFSO7D FP 


5S; 
V Riv}): 
OAF BUF COAF$Q epuDd. nary xuars POD 


APSt A ACCOUNT") 5 
PADDED_TO_COUNTED (YUAFST_CLITABLES"); 
PADDED" TO-COUNTED (*UAFST-DEFCLI"); 
COPY_COUNTED ("UAFS$T_DEFDEV'); 
COPY-COUNTED ("UAFST-DEFDIR'); 
PADDED. 10. COUNTED. COAFST OWNER® 
COPY PADDED. <UAFST.USERNARE’ )< 
IF ( — (NEWPRIVO AND - (OAFBUF LOAF $Q_PRIV}+0)) NEQ 0 
OR (NEWPRIV] AND .(OAFBUFCOAFSQ"PRIVJ+4)) NEQ 0) 
AND (  , (OAFBUF LOAF $Q_PRIV +0) NEQ =1 
OR . (OAFBUFCOAF$SOQ"PRIVI+4) NEQ -1) 


THEN z 


TER: UAE she CVTUAF .832; e 
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SAPSUFESARSY USERNAME) 


L1BSPUT_OUTPUT (OUTDSCLOJ); 


LENGTH = UAFSC_FIX xED 
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0 F 1 INSV RO, #0, #24, UAE BUF +487 ; 
fees tA is 0 1 FO 001 INSV RY #0, #24, UAFBUF+4 Q + 0499 
Fees GA ig $6 0 Fo Solas INSY ROL #0, #84, UAFBUF +493 390 
feer EA ig 80 2 f 18 INSY RO, #0, #24, UAFBUF +499 : 050 
FCOF OCA 18 0 0 FO 0015 INSV RO. #0, #24, UAFBUE +499 ; 30¢ 
FCSA CA 18 00 2 FO OO15A INSV ET oe rt tbe tt. : b2oz 
FCSD =OCCA 18 00 0 FO 00161 INSV Bee Bae Ses od tee : 8288 
FCS4—SsCCA 18 00 51 FO 00168 INSV o Se Bere rete : Bees 
ie Bh pe Bi ee Sree ereeste Be 
FC7E CA OODE CA 90 D , 4 : 0508 
FCB1~—sCA 0104 CA 90 00184 MOVB  OAFBUF +260, UAFBUF +517 : 0508 
free in $¢ NA Be bie MOVZWL gene i : UAFBUF +544 0512 
fees EA a AA ty 8019 MOVL OA BUE S11 * UAFBUF +532 + 0510 
me OR RBS | Ge BRS: Were By 
FC8B CCA 70 AA BO 001A9 + UAFBUF #324 : 0516 
FBE? CA 00D0 CA BO OO1AF MOVW  OAFBUF +208, UAFBUF +3 8 : 0517 
FC96 CCA 0occ CA BO 001B6 MOVW  OAFBUF +204. UAFBU 338 : 0518 
FCBE CA 6— AA BO O1BD MOVW  OAFBUF +110, UAFBUF +350 0519 
FCAO CA 00D2 «CA 3c O1C MOVZWL OAFBUF #210, UAF BUF +348 : 0520 
eRe A note CA 05 aig Rov OAEBUF S224: UAF BUF +560 : 03 : 
06 1 D 3 
+104, UAFBUF +560 > 0525 
fk RBG ow. BM Siar ane ies 
FCB4 «CA 0103 CA D » UAFBUF +368 : O5¢7 
FCBO CA 0cB CA DO OO1E MOVL § OAFBUF+200, U +364 : 0508 
FCAG OCA 7A AA «ODO OOF MOVE © OAFBUF #122, UAFBUF i 05 
» UAFBUF +340 : 
FAD EA ¢ RA 3 fF ROVE, QAFBUF* 28° UAFBUF® 4 1 
ag 69 00D7 ig 9 BA Bioe OAF uF sel ‘ 188 ; 3 
FFFF 68F OC of BISL2 #16777215, UAFBUF+490 
— 69 voit 6 AE 18 13$: BLBC  OAFBUF+219, 14 : 05 
H we: _ ie Bree oH eye sts AF BUF +493 : 0538 
ae 1 £1 6 14$: BBC #1, OAFBUF+215, 15$ ; 03 9 
” pee OA F C8 "  BISL2 Ait AF BUF +496 > 0540 
a 1 €1 g 15$: BBC #1. OAF £319 16$ ; 9941 
"6 Pree tA fa: " - BISL2 AP aL: AF BUF +499 : se 
36 bal A aarerere 4 &¢ 16$: BBC 84 QArB fete 178 ; : 0 44 
ret hapereree Eg Ree Ella BREET a a des a. 
FC66 «OCA “OOFFFFFF)6BF Ct 22 BISL2 #16777215. UAFBUF +490 : 
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VAX 
DIS 

AEE 
#1097954 
OA 
OAFBUF +98, #-5 
#8, UAFBUF +362 
f , DAY30, UAFBUF +372 
#6, UAFBUF +362 
#8. DAY180, UAFBUF +372 
QAPBUF +16, OAFBUF+12, RO 
re DATE, UAFBUF +380 
#8. OAFBUF+94 

» OAFBUF+94, UAFBUF +42 


# 
ae OAFBUF+12, UAFBUF +340 
#8, OAFBUF+20, #32, #32, UAFBUF+52 


OAF BUF +260, P 

-1(P), 299 

OAFBUF+228, R1 
Ri 

24s 

P 

22$ 

OAFBUF +228, R1 


COUNT, UAFBUF +308 
COUNT, OAFBUF+228, #32, #31, UAFBUF +309 


OAFBUF+89, P 
-1(P), #32 
OAFBUF+80, R1 
P, RI 

25$ 

Pp 


24$ 

OAFBUF +80, R1 

Ri, COU 

COUNT, Pot ope thy 

COUNT, OAFBUF+80, #352, #31, UAFBUF +277 
OAF BUF +64, RO 

RO, OAFBUF+64, #32, #32, UAFBUF +116 
OAFBUF+32, RO 

RO, OAFBUF+32, #32, #64, UAFBUF +148 
OAFBUF +166, RO 

RO 
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CVTUAF Convert Authorization File 16-Sep-1984 02:15:1 VAX-11 Bliss-32 V4.0-74 Page 25) 
v04=000 12-888: 7 96:33:] DISKSVMSHASTERSCUAF SRCICVTUAF .B32:1 . 3 
0040 8F 20 OOA6 CA F850 50 2c 3 MOVCS RO, OAFBUF+166, #32, #64, UAFBUF +212 : 
5 009E CA F MOVAB OAFBUF+158, P : 0579) 
38 FF AO f 4 26$: CMPB  <-1(P), 133 : seit 
0D 1A 00378 BGTRU : | 
51 7E AA oF tA MOV OAFBUF +126, R1 : 
1 0 D CMPL 6oP, R : 
4 18 BLEGU 278 ; | 
0 OD ECL P : 
—ED 11 BRB 26$ : | 
51 7E AA 9 27$ MOV OAFBUF+126, R1 : 
50 21 B SUBL ‘ T : 
FADO CA 0 5 MOVE COUNT, UAFBUF+84 : 
1F 20 7E AA ail 30 ¢ 0393 MOVCS COUNT, OAFBUF+126, #32, #31, UAFBUF+85 : 
20 20 6A 0c 2c 0039¢ MOVCS #12, OAFBUF, #32, #32, UAFBUF+4 + 0580 
— D5 6 ‘ TSTL : 0582 
05 19 O3A6 BLSS 28$ : 
62. AA D3 O3A TSTL § OAFBUF+98 + 0583 
38 13 003AB BEQL 30$ : 
FFFFFFFF © 8F pi O3AD 28$: CMPL 7, #1 + 0584 
OA 12 00384 BNEQ 29 : 
FEFFFFFF © 8F 62 AA p| 0386 CPL AFBUF+98, #=1 : 0585 
046C CA 50 i 9A 00 5 29$:  MOVZBL #80, OUTDSC > 0588 
A DD 00 C6 PUSHL 1 > 0594 
0c DD 003C¢ PUSHL #1 : 
046C CA OF OCA PUSHAB OUTDSC : 
046€ CA 9F 00 ce PUSHAB OUTDSC ; 
0000' CF 9F 030 PUSHAB P.AAM : 
000000006 00 05 FB 00306 CALLS #5, SYSSFAO : 
046C CA 9F 003DD PUSHAB OUT > 0595 
000000006 09 oi FB 003E1 CALLS #1, LIBSPUT_OUTPUT ; 
5 0284 &8F 3 00 £8 30$:  MOV2WL #644, LENGTA > 0598 
50 O0CE cA 3¢ 0 ED MOV ZUL AFBUF +206, RO : 0599 
6E 50 SA C1 8 F4 ADDL3 R10, RO, USER_DATA > 060 
50 6A 3 O3F8 MOVAB OAFBUF, + 060 
51 0846 cA C 003F MOVZWL OAFRAB+34, R1 ; 
50 1 £0 04 ADDL2 ; 
51 01 Ar E 04 OVAB USER DATA+1, R1 : 
51 50 01 0040 CMPL =e RO, RI : | 
29 i AOA BLSSU ; | 
56 00 E A 004 MOVZBL @USER_DATA, USER_LENGTH > 0606 
06 41 INCL. USER CENGTH : 
51 56 . C1 0041 ADDL3 SP, OSER_LENGTH, R1 : 0607. 
D1 0041 CMPL =soaR7, R ; | 
iA 1A 0041 BGTRU 31 : | 
00000300 = &F 36 pi 41 CMPL SER_LENGTH, #768 > 0608 | 
1 A 004 BGTR : 
FDOO CA 00 ef 26 28 004 MOVCS USER_LENGTH, @USER DATA, UAFBUF +644 > 0611 | 
6 CO 00428 ADDL USER-LENGTH LENGTA > 0612 | 
FATE CA 0284 8F BO 004 : MOVW #6447 UAFBUF+ : 061 | 
O6ce CA 8 BO 00435 218 MOVW LENGTH, UAFRAB+ ; 061 
OOv CF FB 0043A CALLS #0, ADJUST_RECORD_FIELDS : 618 
O6AC CA 9F 0043F PUSHAB UAFR > 0619 | 
| 
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; Routine Size: 1144 bytes, Routine Base: S$CODE$ + 0000 


000000006 1 FB 00443 CALLS SYSS$PUT : ; 
88 e) : 44a BLBC RNSERR, 32$ : ; 

FCBF 31 44D BRW : ; 

4 49 328: RET : ; 

0001827A = BF 59 D1 00451 33$:  CMPL —s- RMSERR, #98938 + 0621 ; 
04 13 00498 BEQL = 3 ; ; 

50 59 D0 004 A MOVL § RMSERR, RO : : 

04 0045D RET : ; 

065C CA 9F OO4S5E 34 PUSHAB UAFFAB + 0622 : 

000000006 00 61 FB O46 CALLS #1 SYSSCLOSE ; : 
0 50 E 04 BLBC SERR, 35$ ; : 

0704 CA SF 00466 PUSHAB 0 + 0623 : 

000000006 00 01 FB 004 CALLS #1, SYSSCLOSE ; : 
04 00477 35$: RET > 0624 ; 


beaches es) 
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CVTUAF Convert Authorization File 1b-se -1984 02:15:1 VAX-11 Bliss-32 V4.0-74 Page 27 

v04-000 12-808-1 3b eee DISKSVMSMASTER: CUAF .SRCICVTUAF .832; 1 ° (4) 
; 509 0625 1 ROUTINE ADJUST_RECORD_FIELDS : NOVALUE= : 
; 510 $e 8 1 !e¢ : 
: 51 06 f FUNCTIONAL DESCRIPTION: 3 
; 1§ 0629 1! Checks the currently converted record to ensure that ; 
>; 514 0630 1! values are at least the minimums we want. 3 
; 515 0631 1! 3 
>; 516 peas 1 !-- 3 
s S17 063 BEGIN 3 
: 2i8 Re : IF _ UAFBUF LUAF SU -ASTLM] LEQU 24 3 
: 259 oe38 ‘ 'UAFBUF CUAF$W_ASTLM] = 24; : 
> 341 0637 if UAFBUF UAF$W-BIOLM) LEQU 18 3 
3 256 0638 THEN 5 
: 28 0639 UAFBUF CUAF$W_BIOLM] = 18; 3 
; 524 0640 IF .UAFBUFCUAFSW-DIOLM] LEQU 18 : 
: 525 0641 THEN : 
; 526 0662 cond af read DIOLM) = : 
: 527 064 . UAF BUF CUAF $L~JTQUOTA) (Pau 1024 ; 
3 368 0644 2 Few 3 
; 529 0645 é UAFBUFCUAF$L_JTQUOTA] = 1024; : 
; 530 0646 IF .UAFBUFCUAFS$W-ENQLM] LEQU 30 : 
; 531 0647 2 THEN : 
s Soe 0648 2 UAFBUF CUAF$W_ENQLM) = 30; 3 
; 533 0649 2 IF .UAFBUFCUAFSL_BYTLMJ LEQU’ 8192 : 
s 534 0650 2 THEN : 
; 535 0651 2 UAFBUF CUAF$L_BYTLM] = 8192; 3 
s 536 0652 2 3 
2 Sor 0653 2 RETURN; 3 
; 538 0654 1 END; ; 
0004 00000 ADJUST_RECORD FIELDS: | : 
WORD” Sav 3 0625 : 
52 0000° CF 9E LAND MOVAB UaBur 532, ag : $ 
18 6¢ Bi 0000 CMPW UAF BUF +5 #24 + 0634 : 
03 1A QOLOA BGTRU : 3 
62 18 Bo 0000C OvwW #24, UAFBUF +532 : 0636 é 
12 FA A2 B81 OOOUF 1$: CMPW AFBUF +526, #18 : 0637 : 
FA OA 03 bb Boars eel” $18, UAFBUF +526 : 9639 ; 
3 FC AS B1 Mitte 2$: CMPW AFBULeso8. #18 > 0640 : 
04 1A 90010 BGTRU : 3 
FC A2 is BO OOOTF MOVW #18, UAFBUF +528 : 064 : 
00000400 BF 24 A2 D1 00023 3$: CMPL _- UAFBUF +568, #1024 > 064 ; 
06 1A 00028 GTRU 4$ 3 3 
24 =A2 0400 8F 3C 000 MOVZWL #1024 yar eur 3368 ; 0645 3 
1E 02 A2 81 00 4$ CMPW AFBUF +534, #30 > 0646 | : 
04 =#JA BGTRU 3 ; 
02 A2 H3 BO 00039 MOV #30, UAFBUF +534 : 0648 3 
00002000 BF 1C Ae Di 2B48 5$: CPL AFBUF +560, #8192 ; 0649 ; 
1¢ =6A2 2000 gf 3 004 MOVZWL #8192, UAFBUF +560 ; 0651 : 
4 0004D 6$: RET : 0654 : 
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CVTUAF Convert Authorization File bese -1984 15:1 VAX-11 Bliss-32 V4.0-74 e 29 
v04-000 12-88-1382 Og FFi19 DISKSVMSMASTER: LCUAF .SRCIJCVTUAF .B32;1 shone (8 
; 340 0655 ROUTINE COPY_ADJUST_SELECTED : NOVALUE = 
; 24¢ 0637 1 i FUNCTIONAL DESCRIPTION: 
; ati g628 i 7 Thi ti i lread ted uaf, and adj 
Ps ; 1S routine copies an already-converted uaf, and adjusts | 
: Bas 0660 1 1 felds as needed. ’ : | 
; 546 0661 1 i-- 
: 547 066¢ BEGIN 
: 548 066 LOCAL 
: 549 0664 STATUS; 
: 550 0665 
; 551 0666 2 WHILE (STATUS = $GET(RAB=OAFRAB)) NEQ RMS$_EOF 
; 22¢ 0667 2 D0 
ee 0668 BEGIN 
: 554 0669 3 IF NOT .STATUS 
: 555 0670 3 THEN 
: 556 0671 3 RETURN SIGNAL(.STATUS); 
: 557 0672 3 CHSMOV i? TOAPRABCRABEL RS7],OAFBUF ,UAFBUF); 
; 558 067 3 Sz] z ,OAFRABCRABSW_RSZJ; 
; 559 0674 Yuet “RECORD. IELDS(); 
; 560 0675 3 STATUS = SPUTTRABS UAF RAB) ; 
; 561 0676 3 IF NOT .STATU | 
: 562 0677 3 THEN SIGNAL(.STATUS); 
: 563 0678 2 END; 
: 564 0679 2 STATUS = $CLOSE(FAB=UAFFAB); 
: 565 0680 2 IF NOT .STATUS 
: 566 0681 2 THEN 
: 567 0682 2 SIGNAL(.STATUS); 
: ° 368 0683 2 SCLOSE(FAB=OAFFAB) ; 
; 569 0684 2 RE 3 
: 570 0685 1 END; 
O3FC 00000 COPY_ADJUST SELECTED: 
WORD Save R2,R3, Ra R5,R6,R7,RB,R9 > 0655 
59 000000006 00 9€ 00002 MOVAB Seeger ‘i.’ : 
58 000000006 00 9E 00009 MOVAB LIBSSIGNAL, "a8 : 
57 0000' CF 9E 90010 MOVAB OAFRAB+34, R7 F 
DE AZ 9F 00015 1$: . PUSHAB OAFR : 0666 
000000006 00 01 FB 00018 CALLS ay SYSSGET : 
36 20 D0 O0015 MOVL Tus : 
0001827A BF $ D1 000 2 CMPL ao ATS. #98938 ; 
3 3 909 BEQL : 
06 56 £8 00028 BLBS STATUS, 2$ : 0669 
56 DD 09 PUSHL STATUS > 0671 
68 01 FB 0 CALLS #1, LIBSSIGNAL : 
F236 «C7 F7BA (C7 67 3 $0 2s: MOVC3 OAFRAB+34, 0 OAFBUF . UAF BUF : 0679 
FE88 C7 67 BO 0003C MOVW OAFRAB+34. UAFRAB+ : 067 
FF6OC CF 09 FB 00041 CALLS #0, ADJUST RECORD. PTELDS : 0674 
FE66 «67? OOF 0046 PUSHAB UAFRAB > 0675 
000000006 90 1 FB O004A CALLS #1, SYS$PUT ; 
é 0 00 9091 MOVL RO STATUS : 
BE 6 ¢8 00054 BLBS STATUS, : 0676 


4 
CVTUAF Convert Authorization File 16-Sep-1984 5:1 VAX=11 Slice. -32 V4. Page 
v04-000 18-808- 1382 % 33:19 DISKSVMSMASTER: CUAF. OCRCICVTUAF. B32;1 . (a3 
56 DD 00057 PUSHL STATUS ; 0677 
68 01 FB 8 9 CALLS #1, LIBSSIGNAL 3 
B7 11 C RB 1$ 3 666 
FE16 7 OF QOOSE 3$: PUSHAB UAFFAB ; 067 
6? 1 FB 0006 CALLS #1, SYSS$CLOSE 3 
6 0 00 9006 MOVL RO, STATUS : 
05 6 £8 0006 BLBS STATUS, 4$ + 0680 
56 DD 00068 PUSHL STATUS 3; 0682 
68 01 FB B20 CALLS #1, LIBSSIGNAL : 
BE AZ 9F 000 9 4$::  PUSHAB OAFFAB : 0683 
69 01 FB 0007 ALLS #1, SYSS$CLOSE 3 
04 00076 T ; 0685 
; Routine Size: 119 bytes, Routine Base: S$CODE$ + 04C6 
; $71 0686 1 END 
: fe 0687 0 ELUDOM 
-EXTRN LIBSSIGNAL 
; PSECT SUMMARY 
: Name Bytes Attributes 
: SPLITS 244 NOVEC,NOWRT, RD ,NOEXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
; SOWNS 3564 NOVEC, WRT, RD ,NOEXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
; S$CODES 1341 NOVEC,NOWRT, » EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
3 Library Statistics 
EER Mec cic ane ee nce ae a ane Si Symbols -------- Pages Processing 
; File Total Loaded Percent Mapped ime 
: _$255$DUA28:CSYSLIBILIB.L32;1 18619 0 1000 00:01.8 


COMMAND QUALIFIERS 
BLISS/CHECK=(FIELD, INITIAL, OPTIMIZE) /LIS=LIS$:CVTUAF /OBJ=OBJ$:CVTUAF MSRC$:CVTUAF /UPDATE=(ENHS: CVTUAF ) 


; Size: 1341 0° 28°, + 3808 data bytes 
3; Run "tines : 

; Elapsed Time: 0: 30.0 

; Lines/CPU Min 971 


Lexemes/CPU-Min: 39437 
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